home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CICA 1993 April
/
CICA MS Windows - April 1993.iso
/
unzipped
/
demo
/
amipro32
/
stymacr2.cmz
/
AUTOSTY.SMM
Wrap
INI File
|
1992-08-12
|
38KB
|
2,649 lines
[ver]
4
[sty]
_macro.sty
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
PostScript Printer
[port]
LPT1:
[lang]
1
[desc]
Automates style sheets that collect information and insert it into new document.
noautorun
708845568
61
699907907
3135
8
1075
8246
29
31
1
[fopts]
0
1
0
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[GramStyle]
[ParaNum]
1
[tag]
Body Text
2
[fnt]
TimesNewRomanPS
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Text
0
0
[tag]
Body Single
3
[fnt]
TimesNewRomanPS
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Single
0
0
[tag]
Bullet 1
5
[fnt]
TimesNewRomanPS
240
0
49152
[algn]
1
1
288
288
288
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*5>
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Bullet 1
0
0
[tag]
Number List
6
[fnt]
TimesNewRomanPS
240
0
49152
[algn]
1
1
360
360
360
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*:>.
360
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Number List
0
0
[tag]
Subhead
7
[fnt]
TimesNewRomanPS
240
0
49155
[algn]
1
1
0
0
0
[spc]
33
273
1
72
72
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Subhead
0
0
[tag]
Title
8
[fnt]
Arial MT
360
0
16385
[algn]
4
1
0
0
0
[spc]
33
446
1
144
72
1
100
[brk]
16
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Title
0
0
[tag]
Outline1
9
[fnt]
Arial MT
240
0
16384
[algn]
1
1
0
0
0
[spc]
33
288
1
72
0
1
100
[brk]
16
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
1
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Outline1
0
0
[tag]
Outline2
11
[fnt]
TimesNewRomanPS
200
0
49152
[algn]
1
1
216
0
0
[spc]
33
244
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
2
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Outline2
0
0
[tag]
Outline3
12
[fnt]
Times New Roman
200
0
49152
[algn]
1
1
432
0
0
[spc]
33
244
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
3
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Outline3
0
0
[tag]
Outline4
0
[fnt]
TimesNewRomanPS
200
0
49152
[algn]
1
1
648
0
0
[spc]
33
244
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
4
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Outline4
0
0
[tag]
Outline5
0
[fnt]
TimesNewRomanPS
200
0
49152
[algn]
1
1
864
0
0
[spc]
33
244
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
5
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Outline5
0
0
[tag]
Outline6
0
[fnt]
TimesNewRomanPS
200
0
49152
[algn]
1
1
1080
0
0
[spc]
33
244
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
6
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Outline6
0
0
[tag]
Outline7
0
[fnt]
TimesNewRomanPS
200
0
49152
[algn]
1
1
1296
0
0
[spc]
33
244
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
7
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Outline7
0
0
[tag]
Outline8
0
[fnt]
TimesNewRomanPS
200
0
49152
[algn]
1
1
1512
0
0
[spc]
33
244
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
8
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Outline8
0
0
[tag]
Bullet
0
[fnt]
TimesNewRomanPS
240
0
49152
[algn]
1
1
0
288
288
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*0>
360
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Bullet
0
0
[lay]
Standard
513
[rght]
15840
12240
1
1440
1440
1
1440
1440
0
1
0
1
0
2
1
1440
10800
12
1
720
1
1440
1
2160
1
2880
1
3600
1
4320
1
5040
1
5760
1
6480
1
7200
1
7920
1
8640
[hrght]
[lyfrm]
1
11200
0
0
12240
1440
0
1
3
1 0 0 0 0 0 0
0
0
1
[frmlay]
1440
12240
1
1440
144
1
648
1440
0
1
0
1
1
0
1
1440
10800
1
3
9360
[txt]
Automated Style Sheet Macro Revision <:db<*&><* >>
Page <:P10,0,> of <:X3,16384;NumPages>6<:X~3,16384;NumPages> <:db<*!><* >>
>
[frght]
[lyfrm]
1
13248
0
14400
12240
15840
0
1
3
1 0 0 0 0 0 0
0
0
2
[frmlay]
15840
12240
1
1440
792
1
14472
1440
0
1
0
1
1
0
1
1440
10800
2
2
4680
3
9360
[txt]
>
[elay]
[l1]
0
[edoc]
@Outline1@<:#283,9360>declares and defines
@Outline2@<:#240,9360>DEFINE MoveWindow() DllCall("user,MoveWindow,HHHHHHH",%1,%2,%3,%4,%5,1)
@Outline2@<:#240,9360>DEFINE GetWindowRect() DllCall("user,GetWindowRect,HHN",%1,%2)
@Outline2@<:#240,9360>DEFINE GetClientRect() DllCall("user,GetClientRect,HHN",%1,%2)
@Outline2@<:#240,9360>Define ScreenToClient() DllCall("user,ScreenToClient,HHN", %1, %2)
@Outline2@<:#240,9360>Define ClientToScreen() DllCall("user,ClientToScreen,HHN", %1, %2)
@Outline2@<:#240,9360>Define ShowWindow() DllCall("User,ShowWindow,AHH",%1,%2)
@Outline2@<:#240,9360>Define EnableWindow() DllCall("User,EnableWindow,AHH",%1,%2)
@Outline2@<:#240,9360>define SetFocus() DllCall("user,SetFocus,HH", %1)
@Outline2@<:#240,9360>define HFONT "Setfont:hFont"
@Outline2@<:#240,9360>define SendMessage(hwnd, msg, wpara, lparm) DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)
@Outline2@<:#240,9360>define WM_SETFONT 0x30
@Outline2@<:#240,9360>define WM_USER 0x0400
@Outline2@<:#240,9360>define BM_SETCHECK 0x0401
@Outline2@<:#480,9360>define CreateFont() DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)
@Outline2@<:#240,9360>define DeleteObject(handle) DllCall("gdi,DeleteObject,HH", %1)
@Outline2@<:#240,9360>define GetActiveWindow() DllCall("user,GetActiveWindow,H")
@Outline2@<:#240,9360>define SetWindowText() DllCall("user,SetWindowText,IHC", %1, %2)
@Outline2@<:#240,9360>define TitleBarMsg() SetWindowText(GetActiveWindow(), %1)
@Outline2@<:#240,9360>define GetWindowText() DllCall("user,GetWindowText,HHFH", %1, %2, %3)
@Outline2@<:#240,9360>define MapDialogRect() DllCall("user,MapDialogRect,HHN", %1, %2)
@Outline2@<:#240,9360>declare fillboxfields(target);
@Outline2@<:#240,9360>declare torchfields(target);
@Outline2@<:#240,9360>declare initcapit(string);
@Outline1@<:#283,9360>function main()
@Outline2@'verify this is a clean untitled
@Outline3@if GetOpenFileName$() !="" or Filechanged(0,0) != 0
@Outline3@ message("This macro is for automated style sheets. To use it, choose File/New and leave Run macro selected.")
@Outline3@ exit function
@Outline3@endif
@Outline2@hourglass(1)
@Outline2@ignorekeyboard(2)
@Outline2@rmac=getrunningmacrofile$()
@Outline2@<:#240,9360>'burn power fields if entry is in AMIPRO2.INI
@Outline3@<:#240,9360>burnfields=getprofilestring$("AutoStyleSheets", "NoQuestions", "AMIPRO2.INI")
@Outline3@<:#240,9360>if burnfields = 1
@Outline3@<:#240,9360> torchfields("as_")
@Outline3@<:#240,9360> exit function
@Outline3@<:#240,9360>elseif burnfields = ""
@Outline3@<:#240,9360> writeprofilestring("AutoStyleSheets", "NoQuestions", 0, "AMIPRO2.INI")
@Outline3@<:#240,9360>endif
@Outline2@<:#240,9360>datagood=getprofilestring$("AutoStyleSheets", "DataGood", "AMIPRO2.INI")
@Outline2@<:#240,9360>if datagood != 1
@Outline2@<:#240,9360> macpath=GetMacPath$()
@Outline2@<:#240,9360> collector="{macpath}collect.smm"
@Outline2@<:#240,9360> calli collector()
@Outline2@<:#240,9360>endif
@Outline2@<:#240,9360>'font handler
@Outline3@<:#240,9360>AllocGlobalVar(HFONT, 1)
@Outline3@<:#240,9360>SetGlobalVar(HFONT, 0)
@Outline2@<:#240,9360>cnt = GetPowerFieldCount(0)
@Outline2@<:#240,9360>if (0 != cnt)
@Outline2@<:#240,9360> result=fillboxfields("as_def")
@Outline3@<:#240,9360> if result=0 or result = 2
@Outline3@<:#240,9360> goto blowout
@Outline3@<:#240,9360> endif
@Outline2@<:#240,9360> result = fillboxfields("as_user")
@Outline3@<:#240,9360> if result=0 or result = 2
@Outline3@<:#240,9360> goto blowout
@Outline3@<:#240,9360> endif
@Outline2@<:#240,9360>else
@Outline2@<:#240,9360>' message("No fields")
@Outline2@<:#240,9360>endif
@Outline2@<:#240,9360>blowout:
@Outline2@<:#240,9360>torchfields("as_")
@Outline2@<:#240,9360>mark="as_starttext"
@Outline2@<:#240,9360>result=MarkBookMark(mark, 4002 )
@Outline2@<:#240,9360>if result = 1
@Outline2@<:#240,9360> MarkBookMark(mark, 4004 )
@Outline2@<:#240,9360>endif
@Outline2@<:#240,9360>'font bailout
@Outline3@<:#240,9360>font = GetGlobalVar$(HFONT) ' If we created
@Outline3@<:#240,9360>if (0 != font) ' the font.
@Outline3@<:#240,9360> DeleteObject(font) ' Delete it
@Outline3@<:#240,9360>endif
@Outline3@<:#240,9360>freeglobalvar(HFONT)
@Outline2@<:#240,9360>DocInfo("" "" 1 )
@Outline2@hourglass(0)
@Outline2@<:#240,9360>end function
@Outline1@<:#283,9360>FUNCTION fillboxfields(target)
@Outline2@<:#240,9360>onerror blowout
@Outline2@<:#240,9360>cnt = GetPowerFieldCount(0)
@Outline3@<:#240,9360>if cnt = 0
@Outline3@<:#240,9360> exit function
@Outline3@<:#240,9360>endif
@Outline2@<:#240,9360>rmac=getrunningmacrofile$()
@Outline2@<:#240,9360>allocglobalvar("target", 1)
@Outline2@<:#240,9360>setglobalvar("target", target)
@Outline2@<:#240,9360>dim fields(cnt)
@Outline2@<:#240,9360>dim globvars(1)
@Outline2@<:#240,9360><:f200,2TimesNewRomanPS,255,0,0>dim echovars(1)<:f>
@Outline2@<:#240,9360>numglobs=0
@Outline2@<:#240,9360>GetPowerFields(0, &fields)
@Outline2@<:#240,9360>'load &globvars
@Outline3@<:#240,9360>mergefieldspresent=0
@Outline3@<:#240,9360>for i = 1 to cnt
@Outline3@<:#245,9360> pftype = StrField$(fields(i), 2, ",") 'get the power <+!>field type<-!>
@Outline3@<:#240,9360> if pftype=12 'there is a merge field in the doc.
@Outline3@<:#240,9360> mergefieldspresent=1
@Outline3@<:#240,9360> endif
@Outline3@<:#245,9360> pffield = StrField$(fields(i), 3, ",") 'get the power <+!>field<-!>
@Outline3@<:#245,9360> varname=StrField$(pffield, 3, " ") 'get the name of the <+!>variable
<-!>in the PF
@Outline3@<:#240,9360> showtype=strfield$(varname, 6, "_")
@Outline3@<:#240,9360> if lcase$(showtype)="address2"
@Outline3@<:#240,9360> secondaddressline=1
@Outline3@<:#240,9360> endif
@Outline3@<:#490,9360> <:f200,2TimesNewRomanPS,255,0,0>echovar=strcat$(<:f>strfield$(varname, 1, "_"), "_", strfield$(varname, 2, "_"), "_", strfield$(varname, 3, "_"), "_", strfield$(varname, 4, "_"), "_", strfield$(varname, 5, "_"), "_",<:f200,2TimesNewRomanPS,255,0,0> "echo_"
)<:f>
@Outline3@<:#240,9360> targlen=len(target)
@Outline3@<:#245,9360> if left$(varname, targlen)=target <:f200,2TimesNewRomanPS,255,0,0>and showtype != "echo"<:f>
@Outline3@<:#240,9360> numglobs=numglobs+1
@Outline3@<:#240,9360> result=arrayinsert(&globvars, numglobs, fields(i))
@Outline3@<:#240,9360> if result = 0
@Outline3@<:#240,9360> goto blowout
@Outline3@<:#245,9360> <:f200,2TimesNewRomanPS,255,0,0>arrayinsert(&echovars, numglobs, echovar)<:f>
@Outline3@<:#240,9360> endif
@Outline3@<:#240,9360> endif
@Outline3@<:#240,9360>next
@Outline3@<:#240,9360>'determine if we have any suitable PFs
@Outline4@<:#240,9360>if numglobs=0
@Outline4@<:#240,9360>' message(target)
@Outline4@<:#240,9360> fillboxfields = 3 'this attempt failed, but don't blow out completely
@Outline4@<:#240,9360> exit function
@Outline4@<:#240,9360>endif
@Outline2@<:#240,9360>'fill dialog box with labels & pre-build
@Outline3@<:#240,9360>allocglobalvar("numglobs", 1)
@Outline3@<:#240,9360>setglobalvar("numglobs", numglobs)
@Outline3@<:#240,9360>arraysort(&globvars, 3, "_") 'sort the array on varnum
@Outline3@<:#240,9360>for i = 1 to numglobs
@Outline3@<:#245,9360> pffield = StrField$(globvars(i), 3, ",") 'get the power <+!>field<-!>
@Outline3@<:#245,9360> varname=StrField$(pffield, 3, " ") 'get the name of the <+!>variable
<-!>in the PF
@Outline3@<:#240,9360> quotechar=chr$(34)
@Outline3@<:#245,9360> varlabel=StrField$(globvars(i), 2, quotechar) 'get the <+!>label
<-!>for the variable
@Outline3@<:#240,9360> showtype=strfield$(varname, 6, "_")
@Outline3@<:#240,9360> profilestringstuff=""
@Outline3@<:#240,9360> if showtype != (-1) and showtype != "echo" and showtype != ""
@Outline3@<:#240,9360> profilestringstuff=getprofilestring$("AutoStyleSheets", showtype, "AMIPRO2.INI")
@Outline3@<:#240,9360> if lcase$(showtype) = "address1" and secondaddressline !=1
@Outline3@<:#240,9360> address2=getprofilestring$("AutoStyleSheets", "Address2", "AMIPRO2.INI")
@Outline3@<:#240,9360> if address2 != ""
@Outline3@<:#240,9360> profilestringstuff=strcat$(profilestringstuff, ", " address2)
@Outline3@<:#240,9360> endif
@Outline3@<:#240,9360> endif
@Outline3@<:#240,9360> endif
@Outline3@<:#240,9360> allocglobalvar(varname, 1)
@Outline3@<:#490,9360> <:f200,2TimesNewRomanPS,255,0,0>echovar=strcat$(<:f>strfield$(varname, 1, "_"), "_", strfield$(varname, 2, "_"), "_", strfield$(varname, 3, "_"), "_", strfield$(varname, 4, "_"), "_", strfield$(varname, 5, "_"), "_",<:f200,2TimesNewRomanPS,255,0,0> "echo_"
)<:f>
@Outline3@<:#240,9360><:f200,2TimesNewRomanPS,255,0,0> allocglobalvar(echovar, 1)<:f>
@Outline3@<:#240,9360> if lcase$(left$(varlabel, 5)) = "type "
@Outline3@<:#240,9360> lenwithouttype=len(varlabel) - 5
@Outline3@<:#240,9360> varlabel=right$(varlabel, lenwithouttype)
@Outline3@<:#240,9360> endif
@Outline3@<:#240,9360> if lcase$(right$(varlabel, 5)) = " here"
@Outline3@<:#240,9360> lenwithouthere=len(varlabel) - 5
@Outline3@<:#240,9360> varlabel=left$(varlabel, lenwithouthere)
@Outline3@<:#240,9360> endif
@Outline3@<:#240,9360> varlabel=initcapit(varlabel)
@Outline3@<:#240,9360> filledit(1000 + i, "{varlabel}:")
@Outline3@<:#240,9360> filledit(8000 + i, profilestringstuff)
@Outline3@<:#240,9360>next
@Outline3@<:#240,9360>SetDlgCallBack(0,"{rmac}!PreBuild")
@Outline3@<:#240,9360>'SetDlgCallBack(23,"{rmac}!savesty") 'keep this only if save as style sheet should be a callback
@Outline2@<:#240,9360>box=dialogbox(".", "autostyle")
@Outline2@<:#240,9360>fillboxfields = box 'set this function's return value to the ID returned by the box
@Outline2@<:#240,9360>if box= 0 or box =2
@Outline2@<:#240,9360> goto blowout
@Outline2@<:#240,9360>endif
@Outline2@<:#240,9360>'set global vars & update fields
@Outline3@<:#240,9360>for i = 1 to numglobs
@Outline3@<:#240,9360> contents=getdialogfield$(8000 +i)
@Outline3@<:#245,9360> pfid = StrField$(globvars(i), 1, ",") 'get the power <+!>field id<-!>
@Outline3@<:#245,9360> pftype = StrField$(globvars(i), 2, ",") 'get the power <+!>field type<-!>
@Outline3@<:#245,9360> pffield = StrField$(globvars(i), 3, ",") 'get the power <+!>field<-!>
@Outline3@<:#245,9360> varname=StrField$(pffield, 3, " ") 'get the name of the <+!>variable
<-!>in the PF
@Outline3@<:#490,9360> <:f200,2TimesNewRomanPS,255,0,0>echovar=strcat$(<:f>strfield$(varname, 1, "_"), "_", strfield$(varname, 2, "_"), "_", strfield$(varname, 3, "_"), "_", strfield$(varname, 4, "_"), "_", strfield$(varname, 5, "_"), "_",<:f200,2TimesNewRomanPS,255,0,0> "echo_"
)<:f>
@Outline3@<:#240,9360><:f200,2TimesNewRomanPS,255,0,0> setglobalvar(echovar, contents)<:f>
@Outline3@<:#240,9360> setglobalvar(varname, contents)
@Outline3@<:#240,9360> if mergefieldspresent=1
@Outline3@<:#240,9360> result=GoToPowerField(pfid, pftype)
@Outline3@<:#240,9360>' FieldUpdate(pfid, pftype, pffield)
@Outline3@<:#240,9360> FieldEvaluate()
@Outline3@<:#240,9360> endif
@Outline3@<:#240,9360>next
@Outline3@<:#240,9360>if mergefieldspresent = 0
@Outline3@<:#240,9360> fieldupdateall()
@Outline3@<:#240,9360>endif
@Outline2@<:#240,9360>blowout:
@Outline3@<:#240,9360> call torchfields(target)
@Outline3@<:#240,9360> call freeglobs(target)
@Outline3@<:#240,9360> freeglobalvar("target")
@Outline3@<:#240,9360> freeglobalvar("numglobs")
@Outline2@<:#240,9360>if box=3
@Outline2@<:#240,9360> runlater("{rmac}!<:Zbuttoncheck>AmiButtonCheck<:Z~buttoncheck>(25550, 1)", 0.1)
@Outline2@<:#240,9360> runlater("{rmac}!AmiUIGray(25550, 0)", 0.1)
@Outline2@<:#240,9360> runlater("{rmac}!AmiUIGray(25551, 0)", 0.1)
@Outline2@<:#240,9360> runlater("{rmac}!AmiUIGray(25975, 0)", 0.1)
@Outline2@ pause(008)
@Outline2@<:#240,9360> result = SaveAsNewStyle
@Outline2@<:#240,9360>endif
@Outline2@<:#240,9360>END FUNCTION
@Outline1@<:#283,9360>function AmiButtonCheck(ID, State)
@Outline2@<:#240,9360>hdlg = getactivewindow()
@Outline2@<:#240,9360>idnew = GetDlgItem(Hdlg, ID)
@Outline2@<:#240,9360>AppSendMessage(idnew, BM_SETCHECK, state, 0)
@Outline2@<:#240,9360>end function
@Outline1@<:#283,9360>function AmiUIGray(ID, State)
@Outline2@<:#240,9360>hdlg = getactivewindow()
@Outline2@<:#240,9360>idnew = GetDlgItem(Hdlg, ID)
@Outline2@<:#240,9360>enablewindow(idnew, state)
@Outline2@<:#240,9360>end function
@Outline1@<:#283,9360>FUNCTION freeglobs(target)
@Outline2@<:#240,9360>'singlestep(0)
@Outline2@<:#240,9360>targlen=len(target)
@Outline2@<:#240,9360>numglobs=getglobalvarcount()
@Outline2@<:#240,9360>dim globnuke(numglobs)
@Outline2@<:#240,9360>getglobalvarnames(&globnuke)
@Outline2@<:#240,9360>for i = 1 to numglobs
@Outline2@<:#240,9360> if left$(globnuke(i), targlen)=target
@Outline2@<:#240,9360> freeglobalvar(globnuke(i))
@Outline2@<:#240,9360> endif
@Outline2@<:#240,9360>next
@Outline2@<:#240,9360>end function
@Outline1@<:#283,9360>FUNCTION torchfields(target)
@Outline2@<:#240,9360>'singlestep(0)
@Outline2@<:#240,9360>cnt = GetPowerFieldCount(0)
@Outline2@<:#240,9360>if (0 != cnt)
@Outline2@<:#240,9360> dim fields(cnt)
@Outline2@<:#240,9360> GetPowerFields(0, &fields)
@Outline2@<:#240,9360> for i = 1 to cnt
@Outline2@<:#240,9360> pfid = StrField$(fields(i), 1, ",")
@Outline2@<:#240,9360> pftype = StrField$(fields(i), 2, ",")
@Outline2@<:#245,9360> pffield = StrField$(fields(i), 3, ",") 'get the power <+!>field<-!>
@Outline2@<:#245,9360> varname=StrField$(pffield, 3, " ") 'get the name of the <+!>variable
<-!>in the PF
@Outline2@<:#240,9360> targlen=len(target)
@Outline2@<:#240,9360> if left$(varname, targlen)=target
@Outline2@<:#240,9360> FieldRemove(pfid, pftype);
@Outline2@<:#240,9360> endif
@Outline2@<:#240,9360> next
@Outline2@<:#240,9360>else
@Outline2@<:#240,9360>' message("No fields")
@Outline2@<:#240,9360>endif
@Outline2@<:#240,9360>END FUNCTION
@Outline1@<:#283,9360>function savesty(Hdlg,id,dummy) 'pitch if not a callback
@Outline2@<:#240,9360>SaveAsNewStyle
@Outline2@<:#240,9360>setfocus(hdlg)
@Outline2@<:#240,9360>end function
@Outline1@<:#283,9360>Function PreBuild(Hdlg,id,dummy)
@Outline2@<:#240,9360>target=getglobalvar$("target")
@Outline2@<:#240,9360>numglobs=getglobalvar$("numglobs")
@Outline2@<:#240,9360>'font handler
@Outline3@<:#240,9360>Font = CreateFont(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, "Helv")
@Outline3@<:#240,9360>if (Font)
@Outline3@<:#240,9360> hctl = GetDlgItem(hDlg, 1050)
@Outline3@<:#240,9360> hctl2 = GetDlgItem(hDlg, 1060)
@Outline3@<:#240,9360> SendMessage(hctl, WM_SETFONT, font, 0)
@Outline3@<:#240,9360> SendMessage(hctl2, WM_SETFONT, font, 0)
@Outline3@<:#240,9360>for i =8000 to 8009
@Outline3@<:#240,9360> hctl = GetDlgItem(hDlg, i)
@Outline3@<:#240,9360> SendMessage(hctl, WM_SETFONT, font, 0)
@Outline3@<:#240,9360>next
@Outline3@<:#240,9360> SetGlobalVar(HFONT, Font)
@Outline3@<:#240,9360>endif
@Outline2@<:#240,9360>'name the box and show the right buttons and static text
@Outline3@<:#240,9360>CurStyleSheet = GetDocInfo$(3)
@Outline3@<:#240,9360>CurStyleSheet = ucase$(CurStyleSheet)
@Outline3@<:#240,9360>lb=chr$(091)
@Outline3@<:#240,9360>rb=chr$(093)
@Outline3@<:#240,9360>CurStyleSheet = strcat$(lb, CurStyleSheet, rb)
@Outline3@<:#240,9360>if target ="as_def"
@Outline3@<:#240,9360> TitleBarMsg("Default Information")
@Outline3@<:#240,9360> ShowWindow(GetDlgItem(Hdlg,3), 1) ' show the save as button
@Outline3@<:#240,9360> ShowWindow(GetDlgItem(Hdlg,1060), 0) ' hide the 1060 field static text
@Outline3@<:#240,9360> L1="Type the information that you want to appear each time "
@Outline3@<:#240,9360> L2="you create this type of document. Choose OK to insert this information "
@Outline3@<:#240,9360> L3="into the current document only. Choose Save As to save this "
@Outline3@<:#240,9360> L4="information to a new style sheet."
@Outline3@<:#240,9360> helptext="{L1}{L2}{L3}{L4}"
@Outline3@<:#240,9360> filledit(1050, helptext)
@Outline3@<:#240,9360>else
@Outline3@<:#240,9360> TitleBarMsg("Optional Information")
@Outline3@<:#240,9360> ShowWindow(GetDlgItem(Hdlg,3), 0) ' hide the save as button
@Outline3@<:#240,9360> ShowWindow(GetDlgItem(Hdlg,1060), 0) ' hide the 1060 field static text
@Outline3@<:#240,9360> L1="Type the information you want to appear "
@Outline3@<:#240,9360> L2="in this document."
@Outline3@<:#240,9360> helptext="{L1}{L2}{L3}{L4}"
@Outline3@<:#240,9360> filledit(1050, helptext)
@Outline3@<:#240,9360>endif
@Outline2@<:#240,9360>'hide static text and edit fields
@Outline3@<:#240,9360>for i = (numglobs + 1) to 9
@Outline3@<:#240,9360> stid=1000 + i
@Outline3@<:#240,9360> ShowWindow(GetDlgItem(Hdlg, stid), 0) ' hide the static text field
@Outline3@<:#240,9360> ebid=8000 + i
@Outline3@<:#240,9360> ShowWindow(GetDlgItem(Hdlg, ebid), 0) ' hide the edit box
@Outline3@<:#240,9360>next
@Outline2@<:#240,9360>'size the box
@Outline3@<:#240,9360>DIM rect(4)
@Outline3@<:#240,9360>GetWindowRect(hDlg,&rect)
@Outline3@<:#240,9360>x=rect(1)
@Outline3@<:#240,9360>y=rect(2)
@Outline3@<:#240,9360>xL=rect(3)
@Outline3@<:#240,9360>yL=rect(4)
@Outline3@<:#240,9360>MoveBase=24
@Outline3@<:#240,9360>moveshrink=MoveBase * (9-numglobs)
@Outline4@<:#240,9360>if target="as_def"
@Outline4@<:#240,9360> moveshrink=moveshrink + 22
@Outline4@<:#240,9360> max=145
@Outline4@<:#240,9360>else
@Outline4@<:#240,9360> moveshrink=moveshrink + 50 'shrink extra amount for less 1050 text
@Outline4@<:#240,9360> max=217
@Outline4@<:#240,9360>endif
@Outline4@<:#240,9360>if moveshrink <;> max
@Outline4@<:#240,9360> moveshrink = max
@Outline4@<:#240,9360>endif
@Outline3@<:#240,9360>MoveWindow(hDlg,x,y,xL-x,yL-(y+moveshrink))
@Outline2@<:#240,9360>'move the helptext box
@Outline3@<:#240,9360>hwndCtrl=GetDlgItem(hdlg, 1050)
@Outline3@<:#240,9360>DIM rect2(4)
@Outline3@<:#240,9360>DIM rect3(4)
@Outline3@<:#240,9360>GetWindowRect(hwndCtrl,&rect2)
@Outline3@<:#240,9360>ScreenToClient(hDlg, &rect2) 'convert 1050's screen-relative coordinates to hdlg-relative coordinates
@Outline3@<:#240,9360>GetClientRect(hwndCtrl, &rect3) 'get xL & yL numbers (length & width of 1050)
@Outline3@<:#240,9360>x=rect2(1)
@Outline3@<:#240,9360>y=rect2(2)
@Outline3@<:#240,9360>xL=rect3(3)
@Outline3@<:#240,9360>yL=rect3(4)
@Outline3@<:#240,9360>moveshrink=MoveBase * (9-numglobs)
@Outline4@<:#240,9360>if target="as_def"
@Outline4@<:#240,9360> max=137
@Outline4@<:#240,9360>else
@Outline4@<:#240,9360> max=167
@Outline4@<:#240,9360>endif
@Outline4@<:#240,9360>if moveshrink <;> max
@Outline4@<:#240,9360> moveshrink = max
@Outline4@<:#240,9360>endif
@Outline3@<:#240,9360>MoveWindow(hwndCtrl,x,y-moveshrink,xL,yL)
@Outline2@<:#240,9360>END FUNCTION
@Outline1@<:#283,9360>function initcapit(string)
@Outline2@<:#240,9360>if instr(0, " SSN ", string) != 0
@Outline2@<:#240,9360> initcapit=string
@Outline2@<:#240,9360> exit function
@Outline2@<:#240,9360>endif
@Outline2@<:#240,9360>firstchar=left$(string, 1)
@Outline2@<:#240,9360>restchars=lcase$(right$(string, (len(string) - 1)))
@Outline2@<:#240,9360>initcapit=strcat$(firstchar, restchars)
@Outline2@<:#240,9360>end function
@Outline1@<:#283,9360>DIALOG autostyle
@Outline2@<:#240,9360>-2134376448 23 115 57 231 185 "" "" "_LETTER1.STY Information"
@Outline2@<:#240,9360>FONT 8 "Helv"
@Outline2@<:#240,9360>78 6 91 12 8001 1350631552 "edit" "" 0
@Outline2@<:#240,9360>78 21 91 12 8002 1350631552 "edit" "" 0
@Outline2@<:#240,9360>78 36 91 12 8003 1350631552 "edit" "" 0
@Outline2@<:#240,9360>78 51 91 12 8004 1350631552 "edit" "" 0
@Outline2@<:#240,9360>78 66 91 12 8005 1350631552 "edit" "" 0
@Outline2@<:#240,9360>78 81 91 12 8006 1350631552 "edit" "" 0
@Outline2@<:#240,9360>78 96 91 12 8007 1350631552 "edit" "" 0
@Outline2@<:#240,9360>78 111 91 12 8008 1350631552 "edit" "" 0
@Outline2@<:#240,9360>78 126 91 12 8009 1350631552 "edit" "" 0
@Outline2@<:#240,9360>173 5 53 14 1 1342373889 "button" "OK" 0
@Outline2@<:#240,9360>173 22 53 14 2 1342373888 "button" "Cancel" 0
@Outline2@<:#240,9360>173 39 53 14 3 1342373888 "button" "Save &As..." 0
@Outline2@<:#240,9360>3 8 75 9 1001 1342177280 "static" "fld1:" 0
@Outline2@<:#240,9360>3 23 75 9 1002 1342177280 "static" "fld2:" 0
@Outline2@<:#240,9360>3 38 75 9 1003 1342177280 "static" "fld3:" 0
@Outline2@<:#240,9360>3 53 75 9 1004 1342177280 "static" "fld4:" 0
@Outline2@<:#240,9360>3 68 75 9 1005 1342177280 "static" "fld5:" 0
@Outline2@<:#240,9360>3 83 75 9 1006 1342177280 "static" "fld6:" 0
@Outline2@<:#240,9360>3 98 75 9 1007 1342177280 "static" "fld7:" 0
@Outline2@<:#240,9360>3 113 75 9 1008 1342177280 "static" "fld8:" 0
@Outline2@<:#240,9360>3 128 75 9 1009 1342177280 "static" "fld9:" 0
@Outline2@<:#240,9360>3 143 222 36 1050 1342177280 "static" "Default box text" 0
@Outline2@<:#240,9360>3 143 219 36 1060 1342177280 "static" "User box text" 0
@Outline2@<:#240,9360>END DIALOG
>
[Embedded]
00028408
>
[macsum] 10
main 0 0 10 24
fillboxfields 1179 1 26 79
AmiButtonCheck 4458 2 3 198
AmiUIGray 4584 2 3 203
freeglobs 4721 1 5 208
torchfields 4985 1 9 220
savesty 5424 3 1 240
PreBuild 5488 3 28 244
initcapit 8256 1 3 334
autostyle 8472 0 -1 343
[macse]
14 main
0 267
13
7 ""
18 1
0 34 0 0
13
5 0
18 1
1 2
11 00000194
0 3 "This macro is for automated style sheets. To use it, choose File/New and leave Run macro selected."
6 0
15
9
0 296 1
0 32 2
0 802
13
8 1
0 286 "AutoStyleSheets" "NoQuestions" "AMIPRO2.INI"
13
8 2
6 2
5 1
18 0
11 00000365
16 torchfields "as_"
6 0
15
9
10 00000450
6 2
7 ""
18 0
11 00000450
0 287 "AutoStyleSheets" "NoQuestions" 0 "AMIPRO2.INI"
0 286 "AutoStyleSheets" "DataGood" "AMIPRO2.INI"
13
8 3
6 3
5 1
18 1
11 00000589
0 295
13
8 4
7 "{4}collect.smm"
8 5
16 "{5}"
0 271 "Setfont:hFont" 1
0 264 "Setfont:hFont" 0
0 1304 0
13
8 6
5 0
6 6
18 1
11 00000899
16 fillboxfields "as_def"
13
8 7
6 7
5 0
18 0
6 7
5 2
18 0
1 2
11 00000786
10 00000899
16 fillboxfields "as_user"
13
8 7
6 7
5 0
18 0
6 7
5 2
18 0
1 2
11 00000886
10 00000899
10 00000899
16 torchfields "as_"
7 "as_starttext"
8 8
2 466 1 "{8}" 4002
13
8 7
6 7
5 1
18 0
11 00001022
2 466 1 "{8}" 4004
0 265 "Setfont:hFont"
13
8 9
5 0
6 9
18 1
11 00001118
0 284 "gdi,DeleteObject,HH" "{9}"
0 266 "Setfont:hFont"
2 109 1 "" "" 1
0 296 0
6 0
15
9
14 fillboxfields
20 00002979
0 1304 0
13
8 2
6 2
5 0
18 0
11 00000091
6 1
15
9
0 802
13
8 3
0 271 "target" 1
0 264 "target" "{0}"
6 2
21 4 [X]
5 1
21 5 [X]
5 1
21 6 [X]
5 0
8 7
0 1305 0 &4
5 0
8 8
5 1
8 9
6 2
6 9
18 2
12 00000310
10 00000963
5 1
6 9
3 0
8 9
10 00000235
6 9
22 4
0 20 [X] 2 ","
13
8 10
6 10
5 12
18 0
11 00000388
5 1
8 8
6 9
22 4
0 20 [X] 3 ","
13
8 11
0 20 "{11}" 3 " "
13
8 12
0 20 "{12}" 6 "_"
13
8 13
0 17 "{13}"
13
7 "address2"
18 0
11 00000544
5 1
8 14
0 20 "{12}" 1 "_"
13
0 20 "{12}" 2 "_"
13
0 20 "{12}" 3 "_"
13
0 20 "{12}" 4 "_"
13
0 20 "{12}" 5 "_"
13
0 16 [X] "_" [X] "_" [X] "_" [X] "_" [X] "_" "echo_"
13
8 15
0 14 "{0}"
13
8 16
0 806 "{12}" "{16}"
13
6 0
18 0
6 13
7 "echo"
18 1
1 1
11 00000950
6 7
5 1
3 0
8 7
6 9
22 4
0 1041 &5 "{7}" [X]
13
8 17
6 17
5 0
18 0
11 00000950
10 00002979
0 1041 &6 "{7}" "{15}"
10 00000277
6 7
5 0
18 0
11 00001014
5 3
8 1
6 1
15
9
0 271 "numglobs" 1
0 264 "numglobs" "{7}"
0 1043 &5 3 "_"
5 1
8 9
6 7
6 9
18 2
12 00001160
10 00002243
5 1
6 9
3 0
8 9
10 00001085
6 9
22 5
0 20 [X] 3 ","
13
8 11
0 20 "{11}" 3 " "
13
8 12
0 39 34
13
8 18
6 9
22 5
0 20 [X] 2 "{18}"
13
8 19
0 20 "{12}" 6 "_"
13
8 13
7 ""
8 20
6 13
5 -1
18 1
6 13
7 "echo"
18 1
6 13
7 ""
18 1
1 1
1 1
11 00001661
0 286 "AutoStyleSheets" "{13}" "AMIPRO2.INI"
13
8 20
0 17 "{13}"
13
7 "address1"
18 0
6 14
5 1
18 1
1 1
11 00001661
0 286 "AutoStyleSheets" "Address2" "AMIPRO2.INI"
13
8 21
6 21
7 ""
18 1
11 00001661
0 16 "{20}" ", " "{21}"
13
8 20
0 271 "{12}" 1
0 20 "{12}" 1 "_"
13
0 20 "{12}" 2 "_"
13
0 20 "{12}" 3 "_"
13
0 20 "{12}" 4 "_"
13
0 20 "{12}" 5 "_"
13
0 16 [X] "_" [X] "_" [X] "_" [X] "_" [X] "_" "echo_"
13
8 15
0 271 "{15}" 1
0 806 "{19}" 5
13
0 17 [X]
13
7 "type "
18 0
11 00002000
0 14 "{19}"
13
5 5
3 1
8 22
0 807 "{19}" "{22}"
13
8 19
0 807 "{19}" 5
13
0 17 [X]
13
7 " here"
18 0
11 00002128
0 14 "{19}"
13
5 5
3 1
8 23
0 806 "{19}" "{23}"
13
8 19
16 initcapit "{19}"
13
8 19
5 1000
6 9
3 0
0 31 [X] "{19}:"
5 8000
6 9
3 0
0 31 [X] "{20}"
10 00001127
0 41 0 "{3}!PreBuild"
0 26 "." "autostyle"
13
8 24
6 24
8 1
6 24
5 0
18 0
6 24
5 2
18 0
1 2
11 00002374
10 00002979
5 1
8 9
6 7
6 9
18 2
12 00002459
10 00002941
5 1
6 9
3 0
8 9
10 00002384
5 8000
6 9
3 0
0 27 [X]
13
8 25
6 9
22 5
0 20 [X] 1 ","
13
8 26
6 9
22 5
0 20 [X] 2 ","
13
8 10
6 9
22 5
0 20 [X] 3 ","
13
8 11
0 20 "{11}" 3 " "
13
8 12
0 20 "{12}" 1 "_"
13
0 20 "{12}" 2 "_"
13
0 20 "{12}" 3 "_"
13
0 20 "{12}" 4 "_"
13
0 20 "{12}" 5 "_"
13
0 16 [X] "_" [X] "_" [X] "_" [X] "_" [X] "_" "echo_"
13
8 15
0 264 "{15}" "{25}"
0 264 "{12}" "{25}"
6 8
5 1
18 0
11 00002928
0 1306 "{26}" "{10}"
13
8 17
2 571 1
10 00002426
6 8
5 0
18 0
11 00002979
2 267 1
16 torchfields "{0}"
16 freeglobs "{0}"
0 266 "target"
0 266 "numglobs"
6 24
5 3
18 0
11 00003267
0 285 "{3}!AmiButtonCheck(25550, 1)" 0.1
0 285 "{3}!AmiUIGray(25550, 0)" 0.1
0 285 "{3}!AmiUIGray(25551, 0)" 0.1
0 285 "{3}!AmiUIGray(25975, 0)" 0.1
0 274 008
24 305
13
8 17
6 1
15
9
14 AmiButtonCheck
0 284 "user,GetActiveWindow,H"
13
8 3
0 44 "{3}" "{0}"
13
8 4
0 1036 "{4}" 1025 "{1}" 0
6 2
15
9
14 AmiUIGray
0 284 "user,GetActiveWindow,H"
13
8 3
0 44 "{3}" "{0}"
13
8 4
0 284 "User,EnableWindow,AHH" "{4}" "{1}"
6 2
15
9
14 freeglobs
0 14 "{0}"
13
8 2
0 299
13
8 3
6 3
21 4 [X]
0 300 &4
5 1
8 5
6 3
6 5
18 2
12 00000161
10 00000252
5 1
6 5
3 0
8 5
10 00000086
6 5
22 4
0 806 [X] "{2}"
13
6 0
18 0
11 00000239
6 5
22 4
0 266 [X]
10 00000128
6 1
15
9
14 torchfields
0 1304 0
13
8 2
5 0
6 2
18 1
11 00000427
6 2
21 3 [X]
0 1305 0 &3
5 1
8 4
6 2
6 4
18 2
12 00000177
10 00000414
5 1
6 4
3 0
8 4
10 00000102
6 4
22 3
0 20 [X] 1 ","
13
8 5
6 4
22 3
0 20 [X] 2 ","
13
8 6
6 4
22 3
0 20 [X] 3 ","
13
8 7
0 20 "{7}" 3 " "
13
8 8
0 14 "{0}"
13
8 9
0 806 "{8}" "{9}"
13
6 0
18 0
11 00000401
2 227 1 "{5}" "{6}"
10 00000144
10 00000427
6 1
15
9
14 savesty
24 305
0 284 "user,SetFocus,HH" "{0}"
6 3
15
9
14 PreBuild
0 265 "target"
13
8 4
0 265 "numglobs"
13
8 5
0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv"
13
8 6
6 6
11 00000527
0 44 "{0}" 1050
13
8 7
0 44 "{0}" 1060
13
8 8
0 284 "user,SendMessage,HHHHJ" "{7}" 48 "{6}" 0
0 284 "user,SendMessage,HHHHJ" "{8}" 48 "{6}" 0
5 8000
8 9
5 8009
6 9
18 2
12 00000409
10 00000498
5 1
6 9
3 0
8 9
10 00000331
0 44 "{0}" "{9}"
13
8 7
0 284 "user,SendMessage,HHHHJ" "{7}" 48 "{6}" 0
10 00000376
0 264 "Setfont:hFont" "{6}"
0 279 3
13
8 10
0 18 "{10}"
13
8 10
0 39 091
13
8 11
0 39 093
13
8 12
0 16 "{11}" "{10}" "{12}"
13
8 10
6 4
7 "as_def"
18 0
11 00001213
0 284 "user,GetActiveWindow,H"
13
0 284 "user,SetWindowText,IHC" [X] "Default Information"
0 44 "{0}" 3
13
0 284 "User,ShowWindow,AHH" [X] 1
0 44 "{0}" 1060
13
0 284 "User,ShowWindow,AHH" [X] 0
7 "Type the information that you want to appear each time "
8 13
7 "you create this type of document. Choose OK to insert this information "
8 14
7 "into the current document only. Choose Save As to save this "
8 15
7 "information to a new style sheet."
8 16
7 "{13}{14}{15}{16}"
8 17
0 31 1050 "{17}"
10 00001544
0 284 "user,GetActiveWindow,H"
13
0 284 "user,SetWindowText,IHC" [X] "Optional Information"
0 44 "{0}" 3
13
0 284 "User,ShowWindow,AHH" [X] 0
0 44 "{0}" 1060
13
0 284 "User,ShowWindow,AHH" [X] 0
7 "Type the information you want to appear "
8 13
7 "in this document."
8 14
7 "{13}{14}{15}{16}"
8 17
0 31 1050 "{17}"
6 5
5 1
3 0
8 9
5 9
6 9
18 2
12 00001639
10 00001816
5 1
6 9
3 0
8 9
10 00001564
5 1000
6 9
3 0
8 18
0 44 "{0}" "{18}"
13
0 284 "User,ShowWindow,AHH" [X] 0
5 8000
6 9
3 0
8 19
0 44 "{0}" "{19}"
13
0 284 "User,ShowWindow,AHH" [X] 0
10 00001606
5 4
21 20 [X]
0 284 "user,GetWindowRect,HHN" "{0}" &20
5 1
22 20
8 21
5 2
22 20
8 22
5 3
22 20
8 23
5 4
22 20
8 24
5 24
8 25
6 25
5 9
6 5
3 1
4 0
8 26
6 4
7 "as_def"
18 0
11 00002075
6 26
5 22
3 0
8 26
5 145
8 27
10 00002111
6 26
5 50
3 0
8 26
5 217
8 27
6 26
6 27
18 3
11 00002154
6 27
8 26
6 23
6 21
3 1
6 24
6 22
6 26
3 0
3 1
0 284 "user,MoveWindow,HHHHHHH" "{0}" "{21}" "{22}" [X] [X] 1
0 44 "{0}" 1050
13
8 28
5 4
21 29 [X]
5 4
21 30 [X]
0 284 "user,GetWindowRect,HHN" "{28}" &29
0 284 "user,ScreenToClient,HHN" "{0}" &29
0 284 "user,GetClientRect,HHN" "{28}" &30
5 1
22 29
8 21
5 2
22 29
8 22
5 3
22 30
8 23
5 4
22 30
8 24
6 25
5 9
6 5
3 1
4 0
8 26
6 4
7 "as_def"
18 0
11 00002616
5 137
8 27
10 00002629
5 167
8 27
6 26
6 27
18 3
11 00002672
6 27
8 26
6 22
6 26
3 1
0 284 "user,MoveWindow,HHHHHHH" "{28}" "{21}" [X] "{23}" "{24}" 1
6 3
15
9
14 initcapit
0 808 0 " SSN " "{0}"
13
5 0
18 1
11 00000087
6 0
8 1
6 1
15
9
0 806 "{0}" 1
13
8 2
0 14 "{0}"
13
5 1
3 1
0 807 "{0}" [X]
13
0 17 [X]
13
8 3
0 16 "{2}" "{3}"
13
8 1
6 1
15
9
DIALOG autostyle
-2134376448 23 115 57 231 185 "" "" "_LETTER1.STY Information"
FONT 8 "Helv"
78 6 91 12 8001 1350631552 "edit" "" 0
78 21 91 12 8002 1350631552 "edit" "" 0
78 36 91 12 8003 1350631552 "edit" "" 0
78 51 91 12 8004 1350631552 "edit" "" 0
78 66 91 12 8005 1350631552 "edit" "" 0
78 81 91 12 8006 1350631552 "edit" "" 0
78 96 91 12 8007 1350631552 "edit" "" 0
78 111 91 12 8008 1350631552 "edit" "" 0
78 126 91 12 8009 1350631552 "edit" "" 0
173 5 53 14 1 1342373889 "button" "OK" 0
173 22 53 14 2 1342373888 "button" "Cancel" 0
173 39 53 14 3 1342373888 "button" "Save &As..." 0
3 8 75 9 1001 1342177280 "static" "fld1:" 0
3 23 75 9 1002 1342177280 "static" "fld2:" 0
3 38 75 9 1003 1342177280 "static" "fld3:" 0
3 53 75 9 1004 1342177280 "static" "fld4:" 0
3 68 75 9 1005 1342177280 "static" "fld5:" 0
3 83 75 9 1006 1342177280 "static" "fld6:" 0
3 98 75 9 1007 1342177280 "static" "fld7:" 0
3 113 75 9 1008 1342177280 "static" "fld8:" 0
3 128 75 9 1009 1342177280 "static" "fld9:" 0
3 143 222 36 1050 1342177280 "static" "Default box text" 0
3 143 219 36 1060 1342177280 "static" "User box text" 0
00028433